Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / idecla2 / apitypes.asc < prev next >

Wrap

Text File | 1994-06-27 | 11KB | 579 lines

Type RECT left As Integer top As Integer right As Integer bottom As Integer End Type Type POINTAPI x As Integer y As Integer End Type Type SIZEAPI x As Integer y As Integer End Type Type PARAMETERBLOCK wEnvSeg As Integer lpCmdLine As Long lpCmdShow As Long dwReserved As Long End Type Type OFSTRUCT cBytes As String * 1 fFixedDisk As String * 1 nErrCode As Integer reserved As String * 4 szPathName As String * 128 End Type Type BITMAP bmType As Integer bmWidth As Integer bmHeight As Integer bmWidthBytes As Integer bmPlanes As String * 1 bmBitsPixel As String * 1 bmBits As Long End Type Type RGBTRIPLE rgbtBlue As String * 1 rgbtGreen As String * 1 rgbtRed As String * 1 End Type Type RGBQUAD rgbBlue as String * 1 rgbGreen As String * 1 rgbRed As String * 1 rgbReserved As String * 1 End Type Type BITMAPCOREHEADER bcSize as Long bcWidth As Integer bcHeight As Integer bcPlanes As Integer bcBitCount As Integer End Type Type BITMAPINFOHEADER biSize As Long biWidth As Long biHeight As Long biPlanes As Integer biBitCount As Integer biCompression As Long biSizeImage As Long biXPelsPerMeter As Long biYPelsPerMeter As Long biClrUsed As Long biClrImportant As Long End Type Type BITMAPINFO bmiHeader as BITMAPINFOHEADER bmiColors As String * 128 'Array length is arbitrary; may be changed End Type Type BITMAPCOREINFO bmciHeader As BITMAPCOREHEADER bmciColors As String * 48 'Array length is arbitrary; may be changed End Type Type BITMAPFILEHEADER bfType As Integer bfSize As Long bfReserved1 As Integer bfReserved2 As Integer bfOffBits As Long End Type ' Clipboard Metafile Picture Structure Type HANDLETABLE objectHandle As String * 512 'Array length is arbitrary; may be changed End Type Type METARECORD rdSize As Long rdFunction As Integer rdParm As String * 512 'Array length is arbitrary; may be changed End Type Type METAFILEPICT mm As Integer xExt As Integer yExt As Integer hMF As Integer End Type Type METAHEADER mtType As Integer mtHeaderSize As Integer mtVersion As Integer mtSize As Long mtNoObjects As Integer mtMaxRecord As Long mtNoParameters As Integer End Type Type TEXTMETRIC tmHeight As Integer tmAscent As Integer tmDescent As Integer tmInternalLeading As Integer tmExternalLeading As Integer tmAveCharWidth As Integer tmMaxCharWidth As Integer tmWeight As Integer tmItalic As String * 1 tmUnderlined As String * 1 tmStruckOut As String * 1 tmFirstChar As String * 1 tmLastChar As String * 1 tmDefaultChar As String * 1 tmBreakChar As String * 1 tmPitchAndFamily As String * 1 tmCharSet As String * 1 tmOverhang As Integer tmDigitizedAspectX As Integer tmDigitizedAspectY As Integer End Type Type NEWTEXTMETRIC tmHeight As Integer tmAscent As Integer tmDescent As Integer tmInternalLeading As Integer tmExternalLeading As Integer tmAveCharWidth As Integer tmMaxCharWidth As Integer tmWeight As Integer tmItalic As String * 1 tmUnderlined As String * 1 tmStruckOut As String * 1 tmFirstChar As String * 1 tmLastChar As String * 1 tmDefaultChar As String * 1 tmBreakChar As String * 1 tmPitchAndFamily As String * 1 tmCharSet As String * 1 tmOverhang As Integer tmDigitizedAspectX As Integer tmDigitizedAspectY As Integer ntmFlags As Long ntmSizeEM As Integer ntmCellHeight As Integer ntmAvgWidth As Integer End Type ' Pel Array Type PELARRAY paXCount As Integer paYCount As Integer paXExt As Integer paYExt As Integer paRGBs As Integer End Type ' Logical Brush (or Pattern) Type LOGBRUSH lbStyle As Integer lbColor As Long lbHatch As Integer End Type ' Logical Pen Type LOGPEN lopnStyle As Integer lopnWidth As POINTAPI lopnColor As Long End Type Type PALETTEENTRY peRed As String * 1 peGreen As String * 1 peBlue As String * 1 peFlags As String * 1 End Type ' Logical Palette Type LOGPALETTE palVersion As Integer palNumEntries As Integer palPalEntry As String * 252 'Array length is arbitrary; may be changed End Type ' Logical Font Type LOGFONT lfHeight As Integer lfWidth As Integer lfEscapement As Integer lfOrientation As Integer lfWeight As Integer lfItalic As String * 1 lfUnderline As String * 1 lfStrikeOut As String * 1 lfCharSet As String * 1 lfOutPrecision As String * 1 lfClipPrecision As String * 1 lfQuality As String * 1 lfPitchAndFamily As String * 1 lfFaceName As String * 32 End Type Type NEWLOGFONT lfHeight As Integer lfWidth As Integer lfEscapement As Integer lfOrientation As Integer lfWeight As Integer lfItalic As String * 1 lfUnderline As String * 1 lfStrikeOut As String * 1 lfCharSet As String * 1 lfOutPrecision As String * 1 lfClipPrecision As String * 1 lfQuality As String * 1 lfPitchAndFamily As String * 1 lfFaceName As String * 32 lfFullName As String * 64 lfStyle As String * 32 End Type Type EVENTMSG message As Integer paramL As Integer paramH As Integer time As Long End Type ' Message structure Type MSG hwnd As Integer message As Integer wParam As Integer lParam As Long time As Long pt As POINTAPI End Type Type PAINTSTRUCT hdc As Integer fErase As Integer rcPaint As RECT fRestore As Integer fIncUpdate As Integer rgbReserved As String * 16 End Type Type CREATESTRUCT lpCreateParams As Long hInstance As Integer hMenu As Integer hwndParent As Integer cy As Integer cx As Integer y As Integer x As Integer style As Long lpszName As Long lpszClass As Long ExStyle As Long End Type Type MEASUREITEMSTRUCT CtlType As Integer CtlID As Integer itemID As Integer itemWidth As Integer itemHeight As Integer itemData As Long End Type ' DRAWITEMSTRUCT for ownerdraw Type DRAWITEMSTRUCT CtlType As Integer CtlID As Integer itemID As Integer itemAction As Integer itemState As Integer hwndItem As Integer hDC As Integer rcItem As RECT itemData As Long End Type ' DELETEITEMSTRUCT for ownerdraw Type DELETEITEMSTRUCT CtlType As Integer CtlID As Integer itemID As Integer hwndItem As Integer itemData As Long End Type ' COMPAREITEMSTRUCT for ownerdraw sorting Type COMPAREITEMSTRUCT CtlType As Integer CtlID As Integer hwndItem As Integer itemID1 As Integer itemData1 As Long itemID2 As Integer itemData2 As Long End Type Type MENUITEMTEMPLATEHEADER versionNumber As Integer offset As Integer End Type Type MENUITEMTEMPLATE mtOption As Integer mtID As Integer mtString As String *1 End Type Type DCB Id As String * 1 BaudRate As Integer ByteSize As String * 1 Parity As String * 1 StopBits As String * 1 RlsTimeout As Integer CtsTimeout As Integer DsrTimeout As Integer Bits1 As String * 1 Bits2 As String * 1 XonChar As String * 1 XoffChar As String * 1 XonLim As Integer XoffLim As Integer PeChar As String * 1 EofChar As String * 1 EvtChar As String * 1 TxDelay As Integer End Type Type COMSTAT Bits As String * 1 cbInQue As Integer cbOutQue As Integer End Type Type MDICREATESTRUCT szClass As Long szTitle As Long hOwner As Integer x As Integer y As Integer cx As Integer cy As Integer style As Long lParam As Long End Type Type CLIENTCREATESTRUCT hWindowMenu As Integer idFirstChild As Integer End Type Type MULTIKEYHELP mkSize As Integer mkKeylist As String * 1 szKeyphrase As String * 253 'Array length is arbitrary; may be changed End Type Type WINDOWPLACEMENT length As Integer showCmd As Integer ptMinPosition AS POINTAPI ptMaxPosition AS POINTAPI rcNormalPosition As RECT End Type Type WNDCLASS style As Integer lpfnWndProc As Long 'Note: address of function here cbClsExtra As Integer cbWndExtra As Integer hInstance As Integer hIcon As Integer hCursor As Integer hbrBackground As Integer lpszMenuName As Long 'Resource ID or far pointer to name lpszClassName As Long 'Far poin